home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)woc vii 89.d64 / autoboot (.txt) next >
Commodore BASIC  |  2009-02-03  |  7KB  |  204 lines
  1. 0 GOSUB 8000: GOSUB 9000: GOTO 12
  2. 1 GOSUB 9000:PRINT "";
  3. 2 OPEN 1,8,15
  4. 3 OPEN 3,8,0,"$0:*=P"
  5. 4 SYS 49152
  6. 5 CLOSE 3
  7. 6 PRINT#1,"S0:BOOT.DATA"
  8. 7 OPEN 3,8,3,"0:BOOT.DATA,S,W"
  9. 8 SYS 49155
  10. 9 CLOSE 3
  11. 10 CLOSE 1
  12. 11 END
  13. 12 OPEN 1,8,15,"I0"
  14. 13 OPEN 3,8,3,"BOOT.DATA"
  15. 14 PRINT "";: SYS 49158
  16. 15 CLOSE 3
  17. 16 SYS 49161
  18. 17 IF PEEK(198)=1 THEN PRINT "";
  19. 18 CLOSE 1
  20. 19 END
  21. 7990 :
  22. 8000 POKE 45,PEEK(174)
  23. 8001 POKE 46,PEEK(175)
  24. 8003 POKE 47,PEEK(45)
  25. 8004 POKE 48,PEEK(46)
  26. 8005 POKE 49,PEEK(45)
  27. 8006 POKE 50,PEEK(46)
  28. 8011 S=54272
  29. 8015 FOR T=0 TO 24:POKE S+T,0:NEXT T
  30. 8020 POKE 646,0
  31. 8030 POKE 53281,7:POKE53280,7
  32. 8045 :
  33. 8050 PRINT "[147]";CHR$(142);
  34. 8060 FOR I=1 TO 7
  35. 8070 PRINT SPC(7);
  36. 8080 FOR J=1 TO 26: PRINT "[192]";: NEXT J
  37. 8090 PRINT
  38. 8100 NEXT I
  39. 8110 PRINT ""
  40. 8120 PRINT SPC(15);
  41. 8130 PRINT " TPUG INC."
  42. 8140 PRINT SPC(8);
  43. 8150 PRINT " 5334 YONGE ST.,STE.116"
  44. 8180 PRINT SPC(9);
  45. 8190 PRINT " WILLOWDALE, ONTARIO "
  46. 8200 PRINT SPC(15);
  47. 8210 PRINT " M2N 6M2 "
  48. 8220 PRINT SPC(12);
  49. 8230 PRINT " (416)733-2933 "
  50. 8235 PRINT:PRINT
  51. 8240 PRINT "";
  52. 8250 FOR I=1 TO 7
  53. 8260 PRINT SPC(10);CHR$(18);
  54. 8270 FOR J=1 TO 20: PRINT " ";: NEXT J
  55. 8280 PRINT
  56. 8290 NEXT I
  57. 8300 PRINT "[145][145][145][145][145][145][145]"
  58. 8310 PRINT SPC(12);
  59. 8320 PRINT "THIS SOFTWARE IS"
  60. 8330 PRINT SPC(14);
  61. 8340 PRINT "PUBLIC DOMAIN"
  62. 8350 PRINT SPC(11);
  63. 8360 PRINT "IT IS OKAY TO COPY"
  64. 8370 PRINT SPC(13);
  65. 8380 PRINT "BUT NOT TO SELL"
  66. 8390 PRINT SPC(15);
  67. 8400 PRINT "FOR PROFIT"
  68. 8410 :
  69. 8440 PRINT "": GOSUB 8900
  70. 8505 :
  71. 8510 PRINT "[147]"
  72. 8520 PRINT SPC(9);
  73. 8530 PRINT "AUTOLOADER INSTRUCTIONS"
  74. 8540 PRINT SPC(14);
  75. 8550 PRINT "AVAILABLE ON"
  76. 8560 PRINT SPC(12);
  77. 8570 PRINT "*AUTOBOOT[146] PROGRAM"
  78. 8580 PRINT SPC(12);
  79. 8590 PRINT "MENU PRINTING IS"
  80. 8600 PRINT SPC(14);
  81. 8610 PRINT "AVAILABLE ON":PRINT
  82. 8620 PRINT SPC(11);
  83. 8630 PRINT "PRINTBOOTDATA[146] FILE";
  84. 8640 :
  85. 8710 PRINT "": GOSUB 8900
  86. 8720 RETURN
  87. 8760 :
  88. 8770 REM BELL SOUND
  89. 8780 S=54272
  90. 8791 POKE S+4,20
  91. 8800 POKE S+1,60:POKE S+5,9
  92. 8805 POKE S+5,60: POKE S+6,9
  93. 8810 POKE S+15,40:POKE S+24,15
  94. 8820 POKE S+4,21
  95. 8830 FOR T=1 TO 500:NEXT T
  96. 8840 POKE S+4,20
  97. 8850 RETURN
  98. 8860 :
  99. 8865 REM PRINT PAUSE MESSAGE
  100. 8880 PRINT SPC(8);"PRESS ";CHR$(A);
  101. 8885 PRINT "SHIFT";CHR$(146);
  102. 8886 PRINT " TO CONTINUE[145]"
  103. 8890 A=164-A: RETURN
  104. 8895 :
  105. 8896 REM WAIT FOR SHIFT
  106. 8900 A=18: REM REVERSE ON
  107. 8905 FOR QQ=1 TO 1500: NEXT QQ
  108. 8925 GOSUB 8880: REM PRINT PAUSE MSG
  109. 8926 GOSUB 8780
  110. 8927 GOSUB 8880
  111. 8930 FOR I=1 TO 100
  112. 8935 IF PEEK(653)<>1 GOTO 8945
  113. 8940 I=100: NEXT I: RETURN
  114. 8945 NEXT I
  115. 8947 GOTO 8927
  116. 8950 :
  117. 8990 REM INSTALL MACHINE LANGUAGE
  118. 9000 FOR I=319 TO 384
  119. 9001 READ A: POKE I,A: NEXT
  120. 9002 POKE 251, 0
  121. 9003 POKE 252, 192
  122. 9004 FOR I=0 TO 66: READ A$
  123. 9005 SYS 319,A$: NEXT: RETURN
  124. 9006 :
  125. 9007 DATA  32, 253, 174,  32, 158, 173
  126. 9008 DATA  32, 163, 182, 133,  36, 162
  127. 9009 DATA   0, 160, 255,  32, 102,   1
  128. 9010 DATA  10,  10,  10,  10, 133,  37
  129. 9011 DATA  32, 102,   1,   5,  37, 129
  130. 9012 DATA 251, 230, 251, 208, 236, 230
  131. 9013 DATA 252, 208, 232, 200, 196,  36
  132. 9014 DATA 240,  16, 177,  34, 201,  81
  133. 9015 DATA 176,  13, 201,  65, 144,   9
  134. 9016 DATA 233,   1,  41,  15,  16,   2
  135. 9017 DATA 104, 104,  96,  76,   8, 175
  136. 9018 :
  137. 9020 DATAEMLIMCEMAHMDEMIDMFEMIMMFAAAAAAAAAAAAAAAAAAAAAAAAAAAABNJNBBJBDPANIJLKMF
  138. 9021 DATAMCMFMOMFOOMFAOMGBGMHAGMEMEEJFDELCAEOEBENEFDKCAEBFFFEEPEMEPEBEECAEEEFFG
  139. 9022 DATAEFEMEPFAAAEBEECACACACACACACACAAAEFFEFFFCEOCACPMAAAEAAAABELMAIKMAKCMAKH
  140. 9023 DATAMAKLMALEMALNMANJMAPKMAAKMBBCMABEMABOMBDGMBGOMBAPMCFCMCHHMCJJMCKCMCBBFC
  141. 9024 DATAEFEBEEEJEOEHCAEEEJFCEFEDFEEPFCFJCOCOCOANANAABCCAJCJNAACAJNJNAAEJEOEDEM
  142. 9025 DATAFFEEEFCAAACACIFJCPEOCJDPCAAAFFFDEFCAFCEFEMEPEDEBFEEJEOEHCAEMEPEBEECACI
  143. 9026 DATAFJCPEOCJDPCAAAFDEFFBCOCAEEEPEDCOCAEGEJEMEFCAEBFGEBEJEMEBECEMEFCACIFJCP
  144. 9027 DATAEOCJDPCAAAFDEFFBCOCAEGEJEMEFEOEBENEFDKCAAAEEEFFDEDFCEJECEFCAFAFCEPEHFC
  145. 9028 DATAEBENDKCAANAAEJFDCAFEEIEJFDCAEDEPFCFCEFEDFECACIFJCPEOCJDPCAAAJDBCFEFAFF
  146. 9029 DATAEHCAEEEJFDELCAEBFFFEEPEMEPEBEEEFFCBBBBBBBBANFAEMEFEBFDEFCAFHEBEJFECOCA
  147. 9030 DATAFCEFEBEEEJEOEHCAEEEBFEEBCOCOCOAAJDFFFDEFCAEDFFFCFDEPFCCAEDEPEOFEFCEPEM
  148. 9031 DATAFDCAFEEPCAFDEFEMEFEDFECAFAFCEPEHFCEBENCMANBCFCEFFEFFFCEOJCCAFEEPCAEMEP
  149. 9032 DATAEBEECMCABCEGDCJCCAFEEPCAEFFIEJFECAFEEPCAECEBFDEJEDCOANANEJEGCABCCKJCCA
  150. 9033 DATAFAFCEFEDEFEEEFFDCAEGEJEMEFEOEBENEFCMCAFJEPFFCAEDEBEOCAFCEFEBEECAEBANEE
  151. 9034 DATAEPEDFFENEFEOFEEBFEEJEPEOCAEGEJEMEFCAECFJCAFAFCEFFDFDEJEOEHCABCDPJCCOAN
  152. 9035 DATAANAABDBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBNBNBNBNBNBNBNBN
  153. 9036 DATABNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBCENEPFCEFJCDNDNDOAAJD
  154. 9037 DATAFFFDEFCAFDEIEJEGFECAFEEPCAFAEBFFFDEFCMCABCFPJCCAFEEPCAEBECEPFCFECOBBAN
  155. 9038 DATAAAANFAFCEFFDFDCAEBEOFJCAELEFFJCAFEEPCAFCEFFEFFFCEOCAFEEPCAENEFEOFFCOAA
  156. 9039 DATAJDBBBBEMEPEBEECCAAANBBBBBBBBFAEPELEFCADBDJDICMDADKCAFCFFEOBDAAKJAAINBA
  157. 9040 DATAMAKJAECAGNMECAJDMEIKNADLKJKAKAEAINAOMAIMAPMAKJDKKAMAIFCCIECDCAKPMEOAAA
  158. 9041 DATANACCKKPABPCAHGMFCAKPMEOAAANABFKKPABCOOBAMAJIGNAOMAINAOMAJAADOOAPMAEMOE
  159. 9042 DATAMCCAMMPPGALKIOBGMAKCADCAMJPPKJAACAGNMECAPAMECAPAMECAMMPPKJAACAGNMECAPA
  160. 9043 DATAMECAPAMEKJKAKAEAINAOMAIMAPMAKJAHCAGNMEKJIACAGNMEKJAICAGNMEKJABKICAALME
  161. 9044 DATACAPAMEKNAAEAMJEONAADEMPIMDMJFJNANKKJEOCMBBMADABMKJAJCAGNMEKJANKAABCAAL
  162. 9045 DATAMECAPAMEKNBCMAMJEOPAAJMJFJNAOGKJFCINBCMAKJAKCAGNMEKJAOKAABCAALMECAPAME
  163. 9046 DATAKNBEMAMJEOPABNMJFJNAOGKJCKINBEMAKJALCAGNMEKJADKABACAALMECAPAMEJIPAOONA
  164. 9047 DATAAKKJCAINBEMAKJAAINELMAKJAMCAGNMEKJABKAJPCAALMEIEAECAPAMECAPAMECADHMFKJ
  165. 9048 DATAAPCAGNMEKJACKAABCAALMECAPAMEKNAAABMJEOPABHMJFJNAODKCADCAMJPPCADHMFCAMM
  166. 9049 DATAPPCAFNMFMOBAMAPAAGCAPAMEEMDDMDKOBGMAJKGAIEACAKKKLNFMMALMFNMAIFCEIECFKA
  167. 9050 DATAAAKJAFCAGNMEIEAECAOEPPMJIJNAADEMAGMEKEAEMJANPADBMJBEPACBKKCJHPMJCAJAOD
  168. 9051 DATAIKMEACPANOJBCECANCPPMJCCNAAICANCPPKJBECANCPPMIEMBLMEJIPAMGKJAGCAGNMEII
  169. 9052 DATAEMBLMEKJCACANCPPKJAAJBCEGAIEAEAKLAANKKLNFMMALMFNMAIFCCIECDNAADCAHGMFKA
  170. 9053 DATAAALBCCPAAGCANCPPMINAPGIEAFKEAEGACAJIMEIFADKCADIEAECAMGPPCAOEPPIFACKFJA
  171. 9054 DATAINANMAKKKEAEKFACGACAJDMEIKNADCCAJDMEIKNACMKAAACAJIMEPACFOAAANACBMJCCNA
  172. 9055 DATAPDCAJIMEOAAANABGMJCCPAAFJBCCMINAPAKJAAJBCCCAJIMEPAAHOAAAPAPHKJAACMKJAB
  173. 9056 DATAKOANMAGAKJANCANCPPKFBDBAAFKJAKCANCPPGAKCABCAMGPPKAAAIEAECAOEPPKEAEJJAA
  174. 9057 DATAABMIMAEAPAAEKFJAPAONKJAAJJAAABCAMMPPKNAAABMJDCJAANMJDHNAAHKNABABMJDDPA
  175. 9058 DATAACDICEBIGAKJAOCAGNMEKJIACAGNMECAPAMEKJANCAGNMEKJADCAGNMECAPAMEKJABCAGN
  176. 9059 DATAMECAPAMECAPAMEGACAHGMFKAAALBCCPAADMINAPJJIDIGFCCINAOMAJAADOOAPMAGAEIKN
  177. 9060 DATAAOMAIFCCKNAPMAIFCDGIGAKJBACAGNMECAKLMHGALKIOBGMAKJABINBIMACAALMICAIBMI
  178. 9061 DATACAOEPPKCAGNNBKMAPAAFMKBAPIDAPBIKAKKKLNCBMAIFCCLNCCMAIFCDGMCCAACANMMIOO
  179. 9062 DATABHMANAAGCANMMIMOBHMACAGIMHEMJIMFCANMMIKJACIFACKNBHMAMNBJMANAAEKJABIFAC
  180. 9063 DATAOOBHMACAGIMHMGACNAOKEMJIMFCANMMIKJACIFACKNBHMAMNBIMANAAEKJABIFACMOBHMA
  181. 9064 DATACAGIMHMGACNAOKEMJIMFCAHGMFKAAALBCCMJCKPAADEMJIMFKJBDCAGNMECAFNMFCAHGMF
  182. 9065 DATAOGCCNAACOGCDKAAALBCCPAADMINAPJJIKGCCKECDCALNPPKOAMMAKJADKICALKPPCAMAPP
  183. 9066 DATACAPPMEJAAIKJACCAGNMEEMONMGKAAAIEACKJCHIFADKNINACNAPLCAMMPPCAOEPPMJFPPA
  184. 9067 DATAHHKCADCAMGPPKEACIEACCAOEPPKEACJJAAEAKGJAPAAGCAALMHEMOFMGMJANNAAGCAALMH
  185. 9068 DATAEMFHMGMJCANAACIEADMIIEACMACHNANFKEADMACHNABHKJAAIFACCAAMMHKJANCANCPPCA
  186. 9069 DATAOEPPMJCAPAPJKEACPALNKEADCAAMMHKJANCANCPPKEADMIMEACPAIJKCAALJAAEAJNAAEA
  187. 9070 DATAOIMIMEACNAPEJIBIOFADIFACEMFLMGCAMMPPKJADCAMDPPKJBECAGNMECAOEPPPAPLKNBH
  188. 9071 DATAMAEIKNBIMAINBHMACAALMIGIINBHMAEMJIMFMIKJAAJJAAEAKJABEMGNMEOOAOMANAADOO
  189. 9072 DATAAPMAKJBFCAGNMEKJIACAGNMEKJCCCANCPPKJCMCANCPPKNAMMAAJDACANCPPCAFNMFCAHG
  190. 9073 DATAMFKAAALBCCMJFCPAAOKJCMCANCPPKJDBCANCPPKAABNAAHKJBGCAGNMEKAAFIEMGKJANJJ
  191. 9074 DATAHGACIINAPKGAKNBHMAMNBIMALACEMJAANABMKNBJMAMNBAMAJAAEINBHMAGAKJABBIGJBK
  192. 9075 DATAMNBJMALAPIDIOJBKINBIMACAANMIGAKNBJMAMNBHMALAAOMNBAMAPAADCAALMIKNBIMAIN
  193. 9076 DATABHMAGAKCADCAMGPPKFLKINAMMAKJAAINBAMAKJDKKAMACAOKMHCAOEPPKJKAKAEAINAOMA
  194. 9077 DATAIMAPMAKCADIGAECAPBMHCAFNMFMGAENAPGCAOEPPOOBAMAKFJAPAOICAMMPPGAIFCCIECD
  195. 9078 DATAEMPEMHCAHGMFKAAAIEAFCAOEPPKEAFMJANPAAFJBCCMINAPAKJAAJBCCGABICEDIAIKJBB
  196. 9079 DATACAGNMEKNBIMAINBHMABIGJBJINBJMAMNBAMAJAAGKNBAMAINBJMACAGHMIKJIACAGNMEKN
  197. 9080 DATABHMAMNBJMAPAAFOOBHMANAOLKNBJMAMNBAMALAAFKJBCCAGNMEKNBJMACILAADKNBIMAIN
  198. 9081 DATABHMACAGHMIGACAFNMFCAFNMFCAFNMFGAKJKAKAEAINAOMAIMAPMAKOBHMAMKPAAGCAFNMI
  199. 9082 DATAEMHEMICALAMIGACAGHMIKJBDCANCPPKCBEKJBBCANCPPMKNAPKCAFNMFCAFNMFKJIACAGN
  200. 9083 DATAMEKEAFKJCAMAJPPAAGCANCPPMINAPGCANJMIGAKJBDCANCPPKJBBKCAGCANCPPMKNAPKDI
  201. 9084 DATAKNBHMAONBIMAPABAIFAEKJBNKCBECANCPPMKNAPKMGAENAPEGAKJBCCMKJJCCANCPPCAGH
  202. 9085 DATAMIKJBNCANCPPOOAOMANAADOOAPMAKJIACAGNMEKNAOMANAADMOAPMAMOAOMAKJJCCANCPP
  203. 9086 DATAGA
  204.